home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / GANTTEDI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  3.0 KB  |  120 lines
  1. {****************************************}
  2. {    TGanttSeries Editor Dialog          }
  3. { Copyright (c) 1996-98 by David Berneda }
  4. {****************************************}
  5. {$I teedefs.inc}
  6. unit GanttEdi;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, GanttCh
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19.  
  20. type
  21.   TGanttSeriesEditor = class(TForm)
  22.     Label2: TLabel;
  23.     SEPointVertSize: TEdit;
  24.     BConnLines: TBitBtn;
  25.     UDPointVertSize: TUpDown;
  26.     GPLine: TGroupBox;
  27.     SHColor: TShape;
  28.     BitBtn1: TBitBtn;
  29.     CBColorEach: TCheckBox;
  30.     procedure FormShow(Sender: TObject);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure SEPointVertSizeChange(Sender: TObject);
  34.     procedure BConnLinesClick(Sender: TObject);
  35.     procedure CBColorEachClick(Sender: TObject);
  36.     procedure BitBtn1Click(Sender: TObject);
  37.     procedure SHColorMouseUp(Sender: TObject; Button: TMouseButton;
  38.       Shift: TShiftState; X, Y: Integer);
  39.   private
  40.     { Private declarations }
  41.     CreatingForm:Boolean;
  42.     procedure RefreshShape;
  43.   public
  44.     { Public declarations }
  45.     TheSeries:TGanttSeries;
  46.   end;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51. uses PenDlg, Teengine, Series, TeePoEdi, TeeProcs;
  52.  
  53. procedure TGanttSeriesEditor.RefreshShape;
  54. begin
  55.   SHColor.Brush.Color:= TheSeries.SeriesColor;
  56.   SHColor.Visible    := not TheSeries.ColorEachPoint;
  57. end;
  58.  
  59. procedure TGanttSeriesEditor.FormShow(Sender: TObject);
  60. begin
  61.   Screen.Cursor:=crDefault;
  62.   TheSeries:=TGanttSeries(Tag);
  63.   With TheSeries do
  64.   begin
  65.     UDPointVertSize.Position := Pointer.VertSize;
  66.     CBColorEach.Checked      := ColorEachPoint;
  67.   end;
  68.   SHColor.Cursor:=crTeeHand;
  69.   RefreshShape;
  70.   TeeInsertPointerForm(Parent,TheSeries.Pointer);
  71.   CreatingForm:=False;
  72. end;
  73.  
  74. procedure TGanttSeriesEditor.Button1Click(Sender: TObject);
  75. begin
  76.   EditChartPen(Self,TheSeries.LinePen);
  77. end;
  78.  
  79. procedure TGanttSeriesEditor.FormCreate(Sender: TObject);
  80. begin
  81.   TheSeries:=nil;
  82.   CreatingForm:=True;
  83. end;
  84.  
  85. procedure TGanttSeriesEditor.SEPointVertSizeChange(Sender: TObject);
  86. begin
  87.   if not CreatingForm then TheSeries.Pointer.VertSize:=UDPointVertSize.Position;
  88. end;
  89.  
  90. procedure TGanttSeriesEditor.BConnLinesClick(Sender: TObject);
  91. begin
  92.   EditChartPen(Self,TheSeries.ConnectingPen);
  93. end;
  94.  
  95. procedure TGanttSeriesEditor.CBColorEachClick(Sender: TObject);
  96. begin
  97.   TheSeries.ColorEachPoint:=CBColorEach.Checked;
  98.   RefreshShape;
  99. end;
  100.  
  101. procedure TGanttSeriesEditor.BitBtn1Click(Sender: TObject);
  102. begin
  103.   With TheSeries do
  104.   begin
  105.     SeriesColor:=EditColor(Self,SeriesColor);
  106.     ColorEachPoint:=False;
  107.     RefreshShape;
  108.   end;
  109. end;
  110.  
  111. procedure TGanttSeriesEditor.SHColorMouseUp(Sender: TObject;
  112.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  113. begin
  114.   BitBtn1Click(Self);
  115. end;
  116.  
  117. initialization
  118.   RegisterClass(TGanttSeriesEditor);
  119. end.
  120.